home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d26
/
freetk.arc
/
LINEAR8.TK
< prev
next >
Wrap
Text File
|
1987-06-16
|
2KB
|
203 lines
TK!2
=v
#1
:n
x1
:s
b
:c
****** LINEAR8 ******
:f
0
#2
:n
x2
:s
b
:f
0
#3
:n
x3
:s
b
:c
Sample Matrix of Coefficients:
:f
0
#4
:n
x4
:s
b
:f
0
#5
:n
x5
:s
b
:c
1 0 2 0 1 0 1 0 20
:f
0
#6
:n
x6
:s
b
:c
4 2 3 7 0 4 0 1 104
:f
0
#7
:n
x7
:s
b
:c
0 0 2 0 0 0 1 0 13
:f
0
#8
:n
x8
:s
b
:c
2 1 3 4 0 2 0 1 67
:f
0
#9
:n
:s
b
:c
2 1 3 3 1 2 0 1 68
#10
:n
:s
b
:c
2 1 0 3 0 3 0 0 43
#11
:n
:s
b
:c
3 1 6 3 1 2 2 1 112
#12
:n
:s
b
:c
2 1 3 3 0 2 0 1 63
#14
:n
:s
b
:c
As with LINEAR4, x1 through x8 have
#15
:n
:s
b
:c
First Guess values assigned on their
#16
:n
:s
b
:c
Variable subsheets to invoke the
#17
:n
:s
b
:c
Iterative Solver automatically.
#19
:n
:s
b
:c
Type =R to see Rule Sheet
#20
:n
:s
b
:c
Type =V to see Variable Sheet again
=u
=r
#1
:r
x1 + 2*x3 + x5 + x7 = 20
#2
:r
4*x1 + 2*x2 + 3*x3 + 7*x4 + 4*x6 + x8 = 104
#3
:r
2*x3 + x7 = 13
#4
:r
2*x1 + x2 + 3*x3 + 4*x4 + 2*x6 + x8 = 67
#5
:r
2*x1 + x2 + 3*x3 + 3*x4 + x5 + 2*x6 + x8 = 68
#6
:r
2*x1 + x2 + 3*x4 + 3*x6 = 43
#7
:r
3*x1 + x2 + 6*x3 + 3*x4 + x5 + 2*x6 + 2*x7 + x8 = 112
#8
:r
2*x1 + x2 + 3*x3 + 3*x4 + 2*x6 + x8 = 63
#10
:r
" This model accommodates more equations than LINEAR4 because the coeffi-
:s
C
#11
:r
" cients are specified directly in the equations and do not use any space in
:s
C
#12
:r
" the Variable Sheet, the length of which is limited to 32 lines in FREETK.
:s
C
#13
:r
" The 'interactive table' feature in TK Solver Plus may be used conveniently
:s
C
#14
:r
" for assigning coefficients and observing results. Also, the procedural
:s
C
#15
:r
" capability of TK Solver Plus offers Gaussian elimination and other methods
:s
C
#16
:r
" as alternatives to the Iterative Solver used here.
:s
C
%Tv,f,0,5,0,1,0